/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue02 / extras / statistics / programs / anov2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 22 f4 20 54 77 | 6f 20 77 61 79 20 61 6e |...". Tw|o way an|
|00000010| 61 6c 79 73 69 73 20 6f | 66 20 76 61 72 69 61 6e |alysis o|f varian|
|00000020| 63 65 0d 00 14 21 f4 20 | 63 6f 70 79 72 69 67 68 |ce...!. |copyrigh|
|00000030| 74 20 52 2e 43 2e 64 65 | 20 56 65 6b 65 79 20 39 |t R.C.de| Vekey 9|
|00000040| 2f 38 39 0d 00 32 09 f2 | 69 6e 69 74 0d 00 3c 0a |/89..2..|init..<.|
|00000050| f2 77 68 65 72 65 0d 00 | 46 08 f2 64 69 6d 0d 00 |.where..|F..dim..|
|00000060| 78 57 20 db 3a ee 20 85 | 20 e7 20 9f 20 3c 3e 31 |xW .:. .| . . <>1|
|00000070| 37 20 f1 22 45 72 72 6f | 72 20 4e 6f 2e 20 22 3b |7 ."Erro|r No. ";|
|00000080| 9f 20 3b 22 20 68 61 73 | 20 6f 63 63 75 72 65 64 |. ;" has| occured|
|00000090| 20 61 74 20 6c 69 6e 65 | 20 22 3b 9e 3a 64 65 6c | at line| ";.:del|
|000000a0| 3d a6 35 30 30 3a e5 20 | 8d 74 42 40 20 8b 20 e5 |=.500:. |.tB@ . .|
|000000b0| 20 8d 74 42 40 0d 00 82 | 7a f1 27 22 54 6f 20 69 | .tB@...|z.'"To i|
|000000c0| 6e 70 75 74 20 66 72 6f | 6d 20 44 49 53 43 66 69 |nput fro|m DISCfi|
|000000d0| 6c 65 73 20 65 6e 74 65 | 72 2e 2e 2e 2e 2e 2e 31 |les ente|r......1|
|000000e0| 22 27 22 54 6f 20 69 6e | 70 75 74 20 64 61 74 61 |"'"To in|put data|
|000000f0| 20 66 72 6f 6d 20 74 68 | 65 20 6b 65 79 62 6f 61 | from th|e keyboa|
|00000100| 72 64 2e 2e 2e 2e 32 22 | 27 22 54 6f 20 6d 61 6b |rd....2"|'"To mak|
|00000110| 65 20 61 20 64 61 74 61 | 20 66 69 6c 65 2e 2e 2e |e a data| file...|
|00000120| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 33 22 0d |........|.....3".|
|00000130| 00 8c 79 f1 22 54 6f 20 | 6d 61 6b 65 20 61 6e 20 |..y."To |make an |
|00000140| 4f 70 65 72 61 74 69 6e | 67 20 73 79 73 74 65 6d |Operatin|g system|
|00000150| 20 63 61 6c 6c 2e 2e 2e | 34 22 27 22 54 6f 20 63 | call...|4"'"To c|
|00000160| 68 61 6e 67 65 20 64 69 | 73 63 20 64 72 69 76 65 |hange di|sc drive|
|00000170| 20 6f 72 20 70 61 74 68 | 6e 61 6d 65 2e 2e 2e 35 | or path|name...5|
|00000180| 22 27 22 54 6f 20 66 69 | 6e 69 73 68 2e 2e 2e 2e |"'"To fi|nish....|
|00000190| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000001a0| 2e 2e 2e 2e 2e 2e 36 22 | 0d 00 96 20 47 32 3d a5 |......6"|... G2=.|
|000001b0| 2d 34 38 3a e7 20 47 32 | 3c 31 20 84 20 47 32 3e |-48:. G2|<1 . G2>|
|000001c0| 36 20 e5 20 8d 74 42 40 | 0d 00 a0 12 e7 20 47 32 |6 . .tB@|..... G2|
|000001d0| 3d 36 20 ee 20 85 20 87 | 3a e0 0d 00 aa 19 e7 20 |=6 . . .|:...... |
|000001e0| 47 32 3d 35 20 f2 77 68 | 65 72 65 3a 20 e5 20 8d |G2=5 .wh|ere: . .|
|000001f0| 74 42 40 0d 00 b4 17 e7 | 20 47 32 3d 34 20 8c 20 |tB@.....| G2=4 . |
|00000200| f2 6f 73 3a e5 20 8d 74 | 42 40 0d 00 be 25 e7 20 |.os:. .t|B@...%. |
|00000210| 47 32 3d 33 20 8c 20 f2 | 6c 6f 61 64 3a f2 64 69 |G2=3 . .|load:.di|
|00000220| 73 70 3a f2 73 61 76 65 | 3a e5 20 8d 74 42 40 0d |sp:.save|:. .tB@.|
|00000230| 00 c8 18 e7 20 47 32 3d | 32 20 8c 20 f2 6c 6f 61 |.... G2=|2 . .loa|
|00000240| 64 3a f2 64 69 73 70 0d | 00 d2 8e e7 20 64 75 6d |d:.disp.|.... dum|
|00000250| 6d 79 25 3d 30 20 f1 27 | 22 85 56 61 6c 75 65 73 |my%=0 .'|".Values|
|00000260| 20 6c 65 73 73 20 74 68 | 61 6e 20 2e 30 30 31 20 | less th|an .001 |
|00000270| 77 69 6c 6c 20 62 65 20 | 74 72 65 61 74 65 64 22 |will be |treated"|
|00000280| 27 22 85 61 73 20 6d 69 | 73 73 69 6e 67 22 20 8b |'".as mi|ssing" .|
|00000290| 20 f1 27 22 85 41 6c 6c | 20 64 61 74 61 20 69 6e | .'".All| data in|
|000002a0| 63 6c 75 64 69 6e 67 20 | 7a 65 72 6f 20 61 6e 64 |cluding |zero and|
|000002b0| 20 6e 65 67 61 74 69 76 | 65 22 27 22 85 76 61 6c | negativ|e"'".val|
|000002c0| 75 65 73 20 77 69 6c 6c | 20 62 65 20 69 6e 63 6c |ues will| be incl|
|000002d0| 75 64 65 64 22 0d 00 dc | 6d f1 27 22 41 6c 74 65 |uded"...|m.'"Alte|
|000002e0| 72 6e 61 74 69 76 65 20 | 75 6e 72 65 70 6c 69 63 |rnative |unreplic|
|000002f0| 61 74 65 64 20 61 6e 61 | 6c 79 73 69 73 20 59 2f |ated ana|lysis Y/|
|00000300| 4e 22 27 22 85 88 28 4d | 69 73 73 69 6e 67 20 76 |N"'"..(M|issing v|
|00000310| 61 6c 75 65 73 20 6e 6f | 74 20 61 6c 6c 6f 77 65 |alues no|t allowe|
|00000320| 64 22 3a 53 57 24 3d be | 3a e7 20 53 57 24 3d 22 |d":SW$=.|:. SW$="|
|00000330| 59 22 20 84 20 53 57 24 | 3d 22 79 22 20 8c 20 4d |Y" . SW$|="y" . M|
|00000340| 3d 31 0d 00 e6 59 e8 27 | 22 82 45 6e 74 65 72 20 |=1...Y.'|".Enter |
|00000350| 4e 6f 2e 6f 66 20 43 4f | 4c 55 4d 4e 53 20 61 6e |No.of CO|LUMNS an|
|00000360| 64 20 52 4f 57 53 22 2c | 43 2c 52 3a e7 20 4d 3c |d ROWS",|C,R:. M<|
|00000370| 3e 31 20 e8 22 82 61 6c | 73 6f 20 72 65 70 6c 69 |>1 .".al|so repli|
|00000380| 63 61 74 69 6f 6e 73 20 | 69 6e 20 61 20 66 69 6c |cations |in a fil|
|00000390| 6c 65 64 20 63 65 6c 6c | 22 2c 4d 0d 00 eb 0c 4e |led cell|",M....N|
|000003a0| 39 3d 43 2a 52 2a 4d 0d | 00 f0 21 e7 20 4e 39 3c |9=C*R*M.|..!. N9<|
|000003b0| 34 20 f1 22 45 6e 74 72 | 79 20 65 72 72 6f 72 21 |4 ."Entr|y error!|
|000003c0| 22 3a e5 20 8d 64 66 40 | 0d 00 fa 1d f1 27 3b 22 |":. .df@|.....';"|
|000003d0| 85 44 61 74 61 20 72 65 | 71 75 69 72 65 64 20 3d |.Data re|quired =|
|000003e0| 20 22 3b 4e 39 0d 01 04 | 11 e7 20 47 32 3d 32 20 | ";N9...|.. G2=2 |
|000003f0| 8c 20 8d 64 68 43 0d 01 | 2c 1d 20 f4 20 46 49 4c |. .dhC..|,. . FIL|
|00000400| 45 20 41 43 43 45 53 53 | 49 4e 47 20 52 4f 55 54 |E ACCESS|ING ROUT|
|00000410| 49 4e 45 0d 01 36 1e f1 | 27 22 82 88 20 20 20 20 |INE..6..|'"..    |
|00000420| 20 46 49 4c 45 20 50 52 | 4f 43 45 53 53 4f 52 22 | FILE PR|OCESSOR"|
|00000430| 27 0d 01 4a 08 5a 25 3d | 30 0d 01 54 1a f5 3a f2 |'..J.Z%=|0..T..:.|
|00000440| 69 6e 70 75 74 28 44 24 | 29 3a fd 20 5a 25 3e 4e |input(D$|):. Z%>N|
|00000450| 39 2d 31 0d 01 5e 3e f2 | 66 69 6c 28 31 32 39 29 |9-1..^>.|fil(129)|
|00000460| 3a f1 22 83 9d 84 3e 20 | 20 50 72 65 73 73 20 61 |:."...> | Press a|
|00000470| 20 6b 65 79 20 74 6f 20 | 65 6e 64 20 64 65 6c 61 | key to |end dela|
|00000480| 79 20 20 3c 22 3a 64 65 | 6c 3d a6 28 32 30 30 30 |y  <":de|l=.(2000|
|00000490| 29 0d 01 68 4c f1 27 22 | 83 9d 84 41 6d 65 6e 64 |)..hL.'"|...Amend|
|000004a0| 20 6f 72 20 63 68 65 63 | 6b 20 64 61 74 61 20 59 | or chec|k data Y|
|000004b0| 3f 20 65 6c 73 65 20 52 | 45 54 55 52 4e 20 22 3a |? else R|ETURN ":|
|000004c0| 59 25 3d a5 3a e7 20 59 | 25 3d 38 39 20 84 20 59 |Y%=.:. Y|%=89 . Y|
|000004d0| 25 3d 31 32 31 20 8c 20 | f2 64 69 73 70 0d 03 e8 |%=121 . |.disp...|
|000004e0| 16 20 50 3d 30 3a 41 3d | 30 3a 41 32 3d 30 3a 41 |. P=0:A=|0:A2=0:A|
|000004f0| 33 3d 30 0d 03 fc 25 20 | 49 35 3d 30 3a 49 36 3d |3=0...% |I5=0:I6=|
|00000500| 30 3a 4e 3d 30 3a 53 32 | 3d 30 3a 53 33 3d 30 3a |0:N=0:S2|=0:S3=0:|
|00000510| 4b 3d 30 3a 4b 31 3d 30 | 0d 04 01 38 53 3d 30 3a |K=0:K1=0|...8S=0:|
|00000520| 54 3d 30 3a 53 31 3d 30 | 3a e3 20 4a 3d 31 20 b8 |T=0:S1=0|:. J=1 .|
|00000530| 20 61 72 72 61 79 73 69 | 7a 65 25 2a 47 25 3a 41 | arraysi|ze%*G%:A|
|00000540| 33 28 4a 29 3d 30 3a 51 | 28 4a 29 3d 30 3a ed 4a |3(J)=0:Q|(J)=0:.J|
|00000550| 0d 04 06 0e 20 e3 20 49 | 3d 31 20 b8 20 43 0d 04 |.... . I|=1 . C..|
|00000560| 10 0e 20 e3 20 4a 3d 31 | 20 b8 20 52 0d 04 15 09 |.. . J=1| . R....|
|00000570| 20 4b 31 3d 30 0d 04 1a | 0e 20 e3 20 4b 3d 31 20 | K1=0...|. . K=1 |
|00000580| b8 20 4d 0d 04 1f 22 20 | 49 35 3d 49 35 2b 31 3a |. M..." |I5=I5+1:|
|00000590| 50 25 3d 49 35 20 83 32 | 34 30 3a 4b 25 3d 49 35 |P%=I5 .2|40:K%=I5|
|000005a0| 20 81 32 34 30 0d 04 24 | 0f 58 3d 58 31 28 50 25 | .240..$|.X=X1(P%|
|000005b0| 2c 4b 25 29 0d 04 2e 28 | e7 20 58 3c 2e 30 30 31 |,K%)...(|. X<.001|
|000005c0| 20 80 20 64 75 6d 6d 79 | 25 3d 30 20 8c 20 4b 31 | . dummy|%=0 . K1|
|000005d0| 3d 4b 31 2b 31 3a e5 20 | 8d 44 42 44 0d 04 38 14 |=K1+1:. |.DBD..8.|
|000005e0| 20 41 3d 41 2b 58 20 3a | 20 53 3d 53 2b 58 5e 32 | A=A+X :| S=S+X^2|
|000005f0| 0d 04 42 08 20 ed 20 4b | 0d 04 56 16 20 f1 20 22 |..B. . K|..V. . "|
|00000600| 43 45 4c 4c 20 43 4f 4d | 50 4c 45 54 45 22 0d 04 |CELL COM|PLETE"..|
|00000610| 5b 0b 20 4b 3d 4d 2d 4b | 31 0d 04 5d 0d 20 49 36 |[. K=M-K|1..]. I6|
|00000620| 3d 49 36 2b 4b 31 0d 04 | 60 28 20 54 3d 54 2b 41 |=I6+K1..|`( T=T+A|
|00000630| 20 3a 20 4e 3d 4e 2b 4b | 20 3a 20 50 3d 50 2b 4b | : N=N+K| : P=P+K|
|00000640| 20 3a 20 51 28 4a 29 3d | 51 28 4a 29 2b 4b 0d 04 | : Q(J)=|Q(J)+K..|
|00000650| 6a 0c 20 41 32 3d 41 32 | 2b 41 0d 04 74 20 20 41 |j. A2=A2|+A..t  A|
|00000660| 33 28 4a 29 3d 41 33 28 | 4a 29 2b 41 20 3a 20 53 |3(J)=A3(|J)+A : S|
|00000670| 31 3d 53 31 2b 41 5e 32 | 2f 4b 0d 04 7e 08 20 41 |1=S1+A^2|/K..~. A|
|00000680| 3d 30 0d 04 88 08 20 ed | 20 4a 0d 04 92 17 20 f1 |=0.... .| J.... .|
|00000690| 22 43 4f 4c 55 4d 4e 20 | 43 4f 4d 50 4c 45 54 45 |"COLUMN |COMPLETE|
|000006a0| 22 0d 04 9c 1a 20 53 32 | 3d 53 32 2b 41 32 5e 32 |".... S2|=S2+A2^2|
|000006b0| 2f 50 3a 50 3d 30 3a 41 | 32 3d 30 0d 04 a6 08 20 |/P:P=0:A|2=0.... |
|000006c0| ed 20 49 0d 04 b0 25 20 | e3 20 4a 3d 31 20 b8 20 |. I...% |. J=1 . |
|000006d0| 52 3a 53 33 3d 53 33 2b | 41 33 28 4a 29 5e 32 2f |R:S3=S3+|A3(J)^2/|
|000006e0| 51 28 4a 29 3a ed 20 4a | 0d 04 c4 0c 20 46 3d 54 |Q(J):. J|.... F=T|
|000006f0| 5e 32 2f 4e 0d 04 ce 0c | 20 53 33 3d 53 33 2d 46 |^2/N....| S3=S3-F|
|00000700| 0d 04 d8 0c 20 53 32 3d | 53 32 2d 46 0d 04 e2 12 |.... S2=|S2-F....|
|00000710| 20 53 31 3d 53 31 2d 46 | 2d 53 32 2d 53 33 0d 04 | S1=S1-F|-S2-S3..|
|00000720| ec 13 20 53 3d 53 2d 46 | 2d 53 31 2d 53 32 2d 53 |.. S=S-F|-S1-S2-S|
|00000730| 33 0d 04 f1 12 20 44 33 | 3d 52 2d 31 3a 44 32 3d |3.... D3|=R-1:D2=|
|00000740| 43 2d 31 0d 04 f6 13 20 | 44 31 3d 28 52 2d 31 29 |C-1.... |D1=(R-1)|
|00000750| 2a 28 43 2d 31 29 0d 04 | fb 15 20 44 3d 28 4e 2d |*(C-1)..|.. D=(N-|
|00000760| 31 29 2d 44 31 2d 44 32 | 2d 44 33 0d 05 00 0d 20 |1)-D1-D2|-D3.... |
|00000770| 56 31 3d 53 31 2f 44 31 | 0d 05 0a 0d 20 56 32 3d |V1=S1/D1|.... V2=|
|00000780| 53 32 2f 44 32 0d 05 14 | 0d 20 56 33 3d 53 33 2f |S2/D2...|. V3=S3/|
|00000790| 44 33 0d 05 1e 19 20 e7 | 20 4d 3d 31 20 8c 20 56 |D3.... .| M=1 . V|
|000007a0| 3d 56 31 20 8b 20 56 3d | 53 2f 44 0d 13 60 1a 20 |=V1 . V=|S/D..`. |
|000007b0| f1 27 22 41 4e 41 4c 59 | 53 49 53 20 43 4f 4d 50 |.'"ANALY|SIS COMP|
|000007c0| 4c 45 54 45 22 0d 13 6a | 33 20 f1 3b 49 36 3b 22 |LETE"..j|3 .;I6;"|
|000007d0| 20 44 75 6d 6d 79 20 64 | 61 74 61 20 76 61 6c 75 | Dummy d|ata valu|
|000007e0| 65 73 20 77 65 72 65 20 | 6f 6d 69 74 74 65 64 20 |es were |omitted |
|000007f0| 28 3c 2e 30 30 31 29 22 | 0d 13 74 2f 20 f1 27 27 |(<.001)"|..t/ .''|
|00000800| 22 46 69 6c 65 20 52 65 | 66 3a 2d 20 22 3b 72 65 |"File Re|f:- ";re|
|00000810| 66 24 3b 27 22 44 65 73 | 63 72 69 70 74 69 6f 6e |f$;'"Des|cription|
|00000820| 3a 2d 20 22 3b 41 24 0d | 13 88 2a 20 f1 27 22 53 |:- ";A$.|..* .'"S|
|00000830| 4f 55 52 43 45 20 20 20 | 20 20 20 20 44 4f 46 20 |OURCE   |    DOF |
|00000840| 20 20 56 41 52 49 41 4e | 43 45 20 52 41 54 49 4f |  VARIAN|CE RATIO|
|00000850| 22 0d 13 92 06 20 f1 0d | 13 9c 1d 20 f1 22 52 4f |".... ..|... ."RO|
|00000860| 57 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 22 3b 44 33 2c |W.......|...";D3,|
|00000870| 56 33 2f 56 0d 13 9f 1d | 20 f1 22 43 4f 4c 55 4d |V3/V....| ."COLUM|
|00000880| 4e 2e 2e 2e 2e 2e 2e 2e | 22 3b 44 32 2c 56 32 2f |N.......|";D2,V2/|
|00000890| 56 0d 13 a1 1d 20 f1 22 | 49 4e 54 45 52 41 43 54 |V.... ."|INTERACT|
|000008a0| 49 4f 4e 2e 2e 22 3b 44 | 31 2c 56 31 2f 56 0d 13 |ION..";D|1,V1/V..|
|000008b0| a6 11 20 e7 20 4d 3d 31 | 20 e5 20 8d 74 7a 53 0d |.. . M=1| . .tzS.|
|000008c0| 13 b0 17 20 f1 22 52 45 | 53 49 44 55 41 4c 2e 2e |... ."RE|SIDUAL..|
|000008d0| 2e 2e 2e 22 3b 44 0d 13 | ba 36 20 f1 27 22 52 65 |...";D..|.6 .'"Re|
|000008e0| 73 75 6c 74 20 6f 72 20 | 64 61 74 61 20 74 6f 20 |sult or |data to |
|000008f0| 70 72 69 6e 74 65 72 20 | 52 2f 44 20 6f 72 20 65 |printer |R/D or e|
|00000900| 6e 64 20 45 20 22 3a 53 | 57 24 3d be 0d 13 c4 20 |nd E ":S|W$=.... |
|00000910| 20 e7 20 53 57 24 3d 22 | 52 22 20 84 20 53 57 24 | . SW$="|R" . SW$|
|00000920| 3d 22 72 22 8c 20 f2 70 | 72 69 6e 74 0d 13 c9 24 |="r". .p|rint...$|
|00000930| 20 e7 20 53 57 24 3d 22 | 44 22 20 84 20 53 57 24 | . SW$="|D" . SW$|
|00000940| 3d 22 64 22 8c 20 f2 70 | 72 69 6e 74 64 61 74 61 |="d". .p|rintdata|
|00000950| 0d 13 ce 21 20 e7 20 53 | 57 24 3c 3e 22 45 22 20 |...! . S|W$<>"E" |
|00000960| 80 20 53 57 24 3c 3e 22 | 65 22 20 e5 20 8d 74 7a |. SW$<>"|e" . .tz|
|00000970| 53 0d 13 f6 0a e5 20 8d | 44 78 40 0d 23 28 0c 20 |S..... .|Dx@.#(. |
|00000980| dd f2 70 72 69 6e 74 0d | 23 32 07 20 ef 32 0d 23 |..print.|#2. .2.#|
|00000990| 46 3e 20 f1 22 54 57 4f | 20 57 41 59 20 41 4e 41 |F> ."TWO| WAY ANA|
|000009a0| 4c 59 53 49 53 20 4f 46 | 20 56 41 52 49 41 4e 43 |LYSIS OF| VARIANC|
|000009b0| 45 22 3b 3a e7 20 4d 3d | 31 20 f1 22 20 28 55 6e |E";:. M=|1 ." (Un|
|000009c0| 72 65 70 6c 69 63 61 74 | 65 64 29 22 0d 23 50 2f |replicat|ed)".#P/|
|000009d0| 20 f1 27 27 22 46 69 6c | 65 20 52 65 66 3a 2d 20 | .''"Fil|e Ref:- |
|000009e0| 22 3b 72 65 66 24 3b 27 | 22 44 65 73 63 72 69 70 |";ref$;'|"Descrip|
|000009f0| 74 69 6f 6e 3a 2d 20 22 | 3b 41 24 0d 23 5a 45 20 |tion:- "|;A$.#ZE |
|00000a00| f1 27 22 46 41 43 54 4f | 52 53 2e 2e 2e 2e 2e 2e |.'"FACTO|RS......|
|00000a10| 44 4f 46 2e 2e 2e 2e 2e | 2e 53 55 4d 2e 4f 46 2e |DOF.....|.SUM.OF.|
|00000a20| 53 51 55 41 52 45 53 2e | 2e 2e 2e 56 41 52 49 41 |SQUARES.|...VARIA|
|00000a30| 4e 43 45 2e 2e 2e 56 41 | 52 2e 52 41 54 49 4f 22 |NCE...VA|R.RATIO"|
|00000a40| 0d 23 5c 37 20 f1 22 52 | 4f 57 2e 2e 2e 2e 2e 2e |.#\7 ."R|OW......|
|00000a50| 2e 2e 2e 2e 2e 22 3b 44 | 33 3b 3a 40 25 3d 26 32 |.....";D|3;:@%=&2|
|00000a60| 30 35 30 43 3a f1 2c 53 | 33 2c 56 33 2c 56 33 2f |050C:.,S|3,V3,V3/|
|00000a70| 56 3a 40 25 3d 31 30 0d | 23 69 37 20 f1 22 43 4f |V:@%=10.|#i7 ."CO|
|00000a80| 4c 55 4d 4e 2e 2e 2e 2e | 2e 2e 2e 2e 22 3b 44 32 |LUMN....|....";D2|
|00000a90| 3b 3a 40 25 3d 26 32 30 | 35 30 43 3a f1 2c 53 32 |;:@%=&20|50C:.,S2|
|00000aa0| 2c 56 32 2c 56 32 2f 56 | 3a 40 25 3d 31 30 0d 23 |,V2,V2/V|:@%=10.#|
|00000ab0| 6e 37 20 f1 22 49 4e 54 | 45 52 41 43 54 49 4f 4e |n7 ."INT|ERACTION|
|00000ac0| 2e 2e 2e 22 3b 44 31 3b | 3a 40 25 3d 26 32 30 35 |...";D1;|:@%=&205|
|00000ad0| 30 43 3a f1 2c 53 31 2c | 56 31 2c 56 31 2f 56 3a |0C:.,S1,|V1,V1/V:|
|00000ae0| 40 25 3d 31 30 0d 23 73 | 11 20 e7 20 4d 3d 31 20 |@%=10.#s|. . M=1 |
|00000af0| e5 20 8d 74 42 63 0d 23 | 78 2f 20 f1 22 52 45 53 |. .tBc.#|x/ ."RES|
|00000b00| 49 44 55 41 4c 2e 2e 2e | 2e 2e 2e 22 3b 44 3b 3a |IDUAL...|...";D;:|
|00000b10| 40 25 3d 26 32 30 35 30 | 43 3a f1 2c 53 2c 56 3a |@%=&2050|C:.,S,V:|
|00000b20| 40 25 3d 31 30 0d 23 82 | 30 20 f1 27 3b 49 36 3b |@%=10.#.|0 .';I6;|
|00000b30| 22 20 64 75 6d 6d 79 20 | 76 61 6c 75 65 73 20 28 |" dummy |values (|
|00000b40| 3c 2e 30 30 31 29 20 77 | 65 72 65 20 6f 6d 69 74 |<.001) w|ere omit|
|00000b50| 74 65 64 2e 22 0d 23 8c | 0a 20 ef 33 20 3a e1 0d |ted.".#.|. .3 :..|
|00000b60| 23 f0 2e dd f2 70 72 69 | 6e 74 64 61 74 61 3a ef |#....pri|ntdata:.|
|00000b70| 32 3a ef 31 2c 32 37 2c | 31 30 33 3a 49 25 3d 38 |2:.1,27,|103:I%=8|
|00000b80| 3a 40 25 3d 26 30 30 30 | 30 30 35 30 43 0d 23 f5 |:@%=&000|0050C.#.|
|00000b90| 2f 20 f1 27 27 22 46 69 | 6c 65 20 52 65 66 3a 2d |/ .''"Fi|le Ref:-|
|00000ba0| 20 22 3b 72 65 66 24 3b | 27 22 44 65 73 63 72 69 | ";ref$;|'"Descri|
|00000bb0| 70 74 69 6f 6e 3a 2d 20 | 22 3b 41 24 0d 23 fa 19 |ption:- |";A$.#..|
|00000bc0| e3 20 52 25 3d 31 20 b8 | 20 28 43 2a 52 20 81 20 |. R%=1 .| (C*R . |
|00000bd0| 49 25 29 2b 31 0d 24 04 | 0e e3 20 51 25 3d 31 20 |I%)+1.$.|.. Q%=1 |
|00000be0| b8 20 4d 0d 24 0e 0f e3 | 20 50 25 3d 31 20 b8 20 |. M.$...| P%=1 . |
|00000bf0| 49 25 0d 24 13 34 43 25 | 3d 28 52 25 2d 31 29 2a |I%.$.4C%|=(R%-1)*|
|00000c00| 49 25 2a 4d 2b 28 50 25 | 2d 31 29 2a 4d 2b 51 25 |I%*M+(P%|-1)*M+Q%|
|00000c10| 3a 4a 25 3d 43 25 20 83 | 32 34 30 3a 4b 25 3d 43 |:J%=C% .|240:K%=C|
|00000c20| 25 20 81 32 34 30 0d 24 | 18 10 f1 58 31 28 4a 25 |% .240.$|...X1(J%|
|00000c30| 2c 4b 25 29 2c 3b 0d 24 | 22 0d ed 3a f1 3a ed 3a |,K%),;.$|"..:.:.:|
|00000c40| f1 3a ed 0d 24 54 18 ef | 31 2c 32 37 2c 37 37 3a |.:..$T..|1,27,77:|
|00000c50| ef 33 3a 40 25 3d 26 31 | 30 3a e1 0d 27 10 0a dd |.3:@%=&1|0:..'...|
|00000c60| f2 6c 6f 61 64 0d 27 15 | 36 f1 3a e8 22 45 6e 74 |.load.'.|6.:."Ent|
|00000c70| 65 72 20 4e 6f 2e 6f 66 | 20 72 65 73 75 6c 74 73 |er No.of| results|
|00000c80| 22 2c 4e 39 3a f1 22 45 | 6e 74 65 72 20 22 3b 4e |",N9:."E|nter ";N|
|00000c90| 39 3b 22 20 76 61 6c 75 | 65 73 22 0d 27 24 70 e3 |9;" valu|es".'$p.|
|00000ca0| 20 4b 25 3d 30 20 b8 20 | 61 72 72 61 79 73 69 7a | K%=0 . |arraysiz|
|00000cb0| 65 25 3a 20 e3 20 49 3d | 31 20 b8 20 32 34 30 3a |e%: . I=|1 . 240:|
|00000cc0| e7 20 4b 25 2a 32 34 30 | 2b 49 3d 4e 39 2b 31 20 |. K%*240|+I=N9+1 |
|00000cd0| 4b 25 3d 61 72 72 61 79 | 73 69 7a 65 25 3a 49 3d |K%=array|size%:I=|
|00000ce0| 32 34 30 20 8b 20 f1 22 | 45 4e 54 45 52 20 58 31 |240 . ."|ENTER X1|
|00000cf0| 28 22 3b 4b 25 2a 32 34 | 30 2b 49 3b 22 29 22 3b |(";K%*24|0+I;")";|
|00000d00| 3a e8 20 58 31 28 49 2c | 4b 25 29 0d 27 42 07 ed |:. X1(I,|K%).'B..|
|00000d10| 3a ed 0d 27 4c 29 e8 22 | 45 6e 74 65 72 20 61 20 |:..'L)."|Enter a |
|00000d20| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 6f 66 20 74 |descript|ion of t|
|00000d30| 68 65 20 64 61 74 61 22 | 2c 41 24 0d 27 56 05 e1 |he data"|,A$.'V..|
|00000d40| 0d 27 5b 05 3a 0d 27 60 | 1e dd f2 64 69 73 70 3a |.'[.:.'`|...disp:|
|00000d50| ea 20 4b 25 2c 4c 25 2c | 4d 25 2c 50 25 2c 51 25 |. K%,L%,|M%,P%,Q%|
|00000d60| 2c 4b 39 0d 27 62 3b 4b | 25 3d 30 3a 6c 6f 25 3d |,K9.'b;K|%=0:lo%=|
|00000d70| 30 3a e7 20 4e 39 3d 30 | 20 f1 27 22 83 9d 88 81 |0:. N9=0| .'"....|
|00000d80| 3e 20 20 4e 4f 20 20 44 | 41 54 41 20 20 3c 89 22 |>  NO  D|ATA  <."|
|00000d90| 27 3a 64 65 6c 3d a6 28 | 32 35 30 29 3a e1 0d 27 |':del=.(|250):..'|
|00000da0| 65 43 e3 20 4b 25 3d 30 | 20 b8 20 4e 39 20 81 20 |eC. K%=0| . N9 . |
|00000db0| 32 34 30 3a e7 20 4e 39 | 2d 4b 25 2a 32 34 30 3e |240:. N9|-K%*240>|
|00000dc0| 32 33 39 20 8c 20 4f 25 | 3d 33 20 8b 20 4f 25 3d |239 . O%|=3 . O%=|
|00000dd0| 28 4e 39 2d 4b 25 2a 32 | 34 30 2d 31 29 81 20 36 |(N9-K%*2|40-1). 6|
|00000de0| 30 0d 27 6a 17 e3 20 4c | 25 3d 30 20 b8 20 4f 25 |0.'j.. L|%=0 . O%|
|00000df0| 3a 4b 39 3d 4c 25 3a db | 0d 27 74 59 e3 20 4d 25 |:K9=L%:.|.'tY. M%|
|00000e00| 3d 30 20 b8 20 32 3a 51 | 25 3d 4b 25 2a 32 34 30 |=0 . 2:Q|%=K%*240|
|00000e10| 2b 4c 25 2a 36 30 3a 20 | e7 20 20 51 25 3e 39 39 |+L%*60: |.  Q%>99|
|00000e20| 39 20 f1 8a 35 2c 32 29 | 3b 22 92 9d 88 81 49 4e |9 ..5,2)|;"....IN|
|00000e30| 44 45 58 20 22 3b c0 c3 | 28 51 25 29 2c 31 29 3b |DEX ";..|(Q%),1);|
|00000e40| 22 20 54 48 4f 55 53 41 | 4e 44 2c 2e 2e 92 95 22 |" THOUSA|ND,...."|
|00000e50| 3b 0d 27 7e 0f e3 20 50 | 25 3d 31 20 b8 20 32 30 |;.'~.. P|%=1 . 20|
|00000e60| 0d 27 88 63 f1 8a 4d 25 | 2a 31 33 2c 50 25 2b 32 |.'.c..M%|*13,P%+2|
|00000e70| 29 3b c2 c3 28 4b 25 2a | 32 34 30 2b 4c 25 2a 36 |);..(K%*|240+L%*6|
|00000e80| 30 2b 4d 25 2a 32 30 2b | 50 25 29 2c 33 29 3b 8a |0+M%*20+|P%),3);.|
|00000e90| 4d 25 2a 31 33 2b 34 2c | 50 25 2b 32 29 3b a4 75 |M%*13+4,|P%+2);.u|
|00000ea0| 73 69 6e 67 28 73 68 61 | 70 65 24 2c 58 31 28 4c |sing(sha|pe$,X1(L|
|00000eb0| 25 2a 36 30 2b 4d 25 2a | 32 30 2b 50 25 2c 4b 25 |%*60+M%*|20+P%,K%|
|00000ec0| 29 29 3b 0d 27 9c 0b ed | 50 25 3a ed 4d 25 0d 27 |));.'...|P%:.M%.'|
|00000ed0| a1 11 e7 20 46 34 3d 31 | 20 f2 61 6d 65 6e 64 0d |... F4=1| .amend.|
|00000ee0| 27 a2 12 e7 20 46 34 3d | 32 20 f2 64 65 6c 65 74 |'... F4=|2 .delet|
|00000ef0| 65 0d 27 a3 12 e7 20 46 | 34 3d 33 20 f2 69 6e 73 |e.'... F|4=3 .ins|
|00000f00| 65 72 74 0d 27 a6 15 ed | 4c 25 3a ed 20 4b 25 3a |ert.'...|L%:. K%:|
|00000f10| 40 25 3d 26 31 30 3a e1 | 0d 27 ab 05 3a 0d 27 b0 |@%=&10:.|.'..:.'.|
|00000f20| 17 dd f2 61 6d 65 6e 64 | 3a ea 20 6c 6f 25 2c 49 |...amend|:. lo%,I|
|00000f30| 25 2c 52 25 0d 27 ba 59 | f1 8a 30 2c 31 29 3b 22 |%,R%.'.Y|..0,1);"|
|00000f40| 83 9d 81 41 4d 45 4e 44 | 20 52 4f 55 54 49 4e 45 |...AMEND| ROUTINE|
|00000f50| 20 20 9c 87 41 6d 65 6e | 64 20 64 61 74 61 20 59 |  ..Amen|d data Y|
|00000f60| 2f 4e 3f 20 20 20 20 20 | 20 20 22 3a 53 57 24 3d |/N?     |  ":SW$=|
|00000f70| be 3a e7 20 53 57 24 3c | 3e 22 59 22 20 80 20 53 |.:. SW$<|>"Y" . S|
|00000f80| 57 24 3c 3e 22 79 22 20 | 8c 20 db 3a e1 0d 27 c4 |W$<>"y" |. .:..'.|
|00000f90| 61 f1 8a 30 2c 31 29 3b | 22 45 6e 74 65 72 20 61 |a..0,1);|"Enter a|
|00000fa0| 72 72 61 79 20 73 75 62 | 73 63 72 69 70 74 73 20 |rray sub|scripts |
|00000fb0| 6f 66 20 65 61 63 68 20 | 76 61 6c 75 65 20 74 6f |of each |value to|
|00000fc0| 20 62 65 20 61 6d 65 6e | 64 65 64 20 74 68 65 6e | be amen|ded then|
|00000fd0| 20 7a 65 72 6f 20 74 6f | 20 74 65 72 6d 69 6e 61 | zero to| termina|
|00000fe0| 74 65 22 3a 64 65 6c 3d | a6 28 31 30 30 29 0d 27 |te":del=|.(100).'|
|00000ff0| ce 09 6c 6f 25 3d 30 0d | 27 d8 b5 f5 3a 6c 6f 25 |..lo%=0.|'...:lo%|
|00001000| 3d 6c 6f 25 2b 31 3a f1 | 8a 30 2c 31 29 3b c4 37 |=lo%+1:.|.0,1);.7|
|00001010| 35 2c 22 20 22 29 3b 8a | 35 2c 31 29 3b 3a e8 22 |5," ");.|5,1);:."|
|00001020| 4e 65 78 74 20 73 75 62 | 73 63 72 69 70 74 22 2c |Next sub|script",|
|00001030| 49 25 28 6c 6f 25 29 3a | f1 49 25 28 6c 6f 25 29 |I%(lo%):|.I%(lo%)|
|00001040| 2c 4b 25 2a 32 34 30 2b | 4c 25 2a 36 30 2b 36 30 |,K%*240+|L%*60+60|
|00001050| 20 3a f1 8a 30 2c 30 29 | c4 31 35 2c 22 20 22 29 | :..0,0)|.15," ")|
|00001060| 3a fd 20 49 25 28 6c 6f | 25 29 3e 4b 25 2a 32 34 |:. I%(lo|%)>K%*24|
|00001070| 30 2b 4c 25 2a 36 30 2b | 36 30 20 84 20 49 25 28 |0+L%*60+|60 . I%(|
|00001080| 6c 6f 25 29 3c 4b 25 2a | 32 34 30 2b 4c 25 2a 36 |lo%)<K%*|240+L%*6|
|00001090| 30 2b 31 20 84 20 49 25 | 28 6c 6f 25 29 3e 4e 39 |0+1 . I%|(lo%)>N9|
|000010a0| 20 84 20 49 25 28 6c 6f | 25 29 3d 30 0d 27 e2 3a | . I%(lo|%)=0.'.:|
|000010b0| e7 20 49 25 28 6c 6f 25 | 29 3c 3e 30 20 8c 20 f1 |. I%(lo%|)<>0 . .|
|000010c0| 8a 30 2c 30 29 22 85 88 | 4f 75 74 20 6f 66 20 72 |.0,0)"..|Out of r|
|000010d0| 61 6e 67 65 22 3a 6c 6f | 25 3d 6c 6f 25 2d 31 3a |ange":lo|%=lo%-1:|
|000010e0| e5 20 8d 64 58 67 0d 27 | ec 4b 54 3d 6c 6f 25 3a |. .dXg.'|.KT=lo%:|
|000010f0| e3 20 6c 6f 25 3d 31 20 | b8 20 54 2d 31 3a 52 25 |. lo%=1 |. T-1:R%|
|00001100| 3d 49 25 28 6c 6f 25 29 | 81 32 34 30 3a 53 25 3d |=I%(lo%)|.240:S%=|
|00001110| 49 25 28 6c 6f 25 29 83 | 32 34 30 3a e7 20 53 25 |I%(lo%).|240:. S%|
|00001120| 3d 30 20 53 25 3d 32 34 | 30 3a 52 25 3d 52 25 2d |=0 S%=24|0:R%=R%-|
|00001130| 31 0d 27 f6 5c f1 8a 30 | 2c 31 29 3b c4 37 35 2c |1.'.\..0|,1);.75,|
|00001140| 22 20 22 29 8a 30 2c 31 | 29 3b 22 4f 6c 64 20 76 |" ").0,1|);"Old v|
|00001150| 61 6c 75 65 20 6f 66 20 | 58 31 28 22 3b 49 25 28 |alue of |X1(";I%(|
|00001160| 6c 6f 25 29 3b 22 29 3d | 22 3b 58 31 28 53 25 2c |lo%);")=|";X1(S%,|
|00001170| 52 25 29 3b 22 20 4e 65 | 77 20 76 61 6c 75 65 3f |R%);" Ne|w value?|
|00001180| 22 3b 3a e8 58 31 28 53 | 25 2c 52 25 29 0d 27 f8 |";:.X1(S|%,R%).'.|
|00001190| 09 f2 70 6f 73 6e 0d 27 | fb 44 f1 8a 4a 39 2a 31 |..posn.'|.D..J9*1|
|000011a0| 33 2b 34 2c 49 39 2b 32 | 29 3b c4 39 2c 22 20 22 |3+4,I9+2|);.9," "|
|000011b0| 29 3b 8a 4a 39 2a 31 33 | 2b 34 2c 49 39 2b 32 29 |);.J9*13|+4,I9+2)|
|000011c0| 3b a4 75 73 69 6e 67 28 | 73 68 61 70 65 24 2c 58 |;.using(|shape$,X|
|000011d0| 31 28 53 25 2c 52 25 29 | 29 3b 0d 28 00 0c ed 3a |1(S%,R%)|);.(...:|
|000011e0| e5 20 8d 74 7a 67 0d 28 | 0a 07 db 3a e1 0d 28 14 |. .tzg.(|...:..(.|
|000011f0| 0f dd f2 69 6e 70 75 74 | 28 44 24 29 0d 28 1e 18 |...input|(D$).(..|
|00001200| ea 20 50 25 2c 51 25 2c | 64 65 6c 2c 4e 25 2c 4a |. P%,Q%,|del,N%,J|
|00001210| 25 2c 4b 25 0d 28 64 32 | f1 27 22 45 6e 74 65 72 |%,K%.(d2|.'"Enter|
|00001220| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 3a 2d | the fol|lowing:-|
|00001230| 22 3a ff 20 28 22 6d 6f | 75 6e 74 20 22 2b c3 28 |":. ("mo|unt "+.(|
|00001240| 69 6e 63 25 29 29 0d 28 | 6e 42 f1 22 20 20 46 69 |inc%)).(|nB."  Fi|
|00001250| 6c 65 20 72 65 66 65 72 | 65 6e 63 65 20 63 6f 64 |le refer|ence cod|
|00001260| 65 22 3a e8 72 65 66 24 | 3a e7 20 97 28 64 69 72 |e":.ref$|:. .(dir|
|00001270| 64 24 29 3c 3e 2d 31 20 | ff 20 28 22 44 49 52 20 |d$)<>-1 |. ("DIR |
|00001280| 22 2b 64 69 72 64 24 29 | 0d 28 78 72 e7 20 44 24 |"+dird$)|.(xr. D$|
|00001290| 3d 22 46 22 20 84 20 44 | 24 3d 22 66 22 20 e8 22 |="F" . D|$="f" ."|
|000012a0| 20 20 4e 6f 2e 6f 66 20 | 44 41 54 41 20 76 61 6c |  No.of |DATA val|
|000012b0| 75 65 73 20 66 72 6f 6d | 20 74 68 69 73 20 66 69 |ues from| this fi|
|000012c0| 6c 65 22 27 22 20 20 50 | 6f 73 69 74 69 6f 6e 20 |le"'"  P|osition |
|000012d0| 4e 6f 2e 6f 66 20 66 69 | 72 73 74 20 44 41 54 41 |No.of fi|rst DATA|
|000012e0| 20 76 61 6c 75 65 22 2c | 50 25 2c 51 25 20 8b 20 | value",|P%,Q% . |
|000012f0| 50 25 3d 4e 39 3a 51 25 | 3d 31 0d 28 82 0a 51 51 |P%=N9:Q%|=1.(..QQ|
|00001300| 25 3d 51 25 0d 28 8c 09 | f1 72 65 66 24 0d 28 96 |%=Q%.(..|.ref$.(.|
|00001310| 0d 66 3d ad 28 72 65 66 | 24 29 0d 28 b4 2e e7 20 |.f=.(ref|$).(... |
|00001320| 66 3d 30 20 f1 27 22 85 | 88 46 69 6c 65 20 22 3b |f=0 .'".|.File ";|
|00001330| 72 65 66 24 3b 22 20 6e | 6f 74 20 66 6f 75 6e 64 |ref$;" n|ot found|
|00001340| 22 3a e5 20 8d 44 64 68 | 0d 28 be 14 e8 23 66 2c |":. .Ddh|.(...#f,|
|00001350| 41 24 2c 4e 25 3a 4e 4e | 25 3d 4e 25 0d 28 d2 33 |A$,N%:NN|%=N%.(.3|
|00001360| e7 20 4e 25 2d 51 25 2b | 31 3c 50 25 20 f1 27 22 |. N%-Q%+|1<P% .'"|
|00001370| 82 88 49 6e 73 75 66 66 | 69 63 69 65 6e 74 20 64 |..Insuff|icient d|
|00001380| 61 74 61 22 3a d9 23 66 | 3a e5 20 8d 44 64 68 0d |ata":.#f|:. .Ddh.|
|00001390| 28 dc 11 e7 20 51 25 3d | 31 20 8c 20 8d 64 70 68 |(... Q%=|1 . .dph|
|000013a0| 0d 28 e6 1c e3 20 52 25 | 3d 31 20 b8 20 51 25 2d |.(... R%|=1 . Q%-|
|000013b0| 31 3a e8 23 66 2c 58 64 | 75 6d 3a ed 0d 28 f0 33 |1:.#f,Xd|um:..(.3|
|000013c0| e3 20 52 25 3d 51 25 20 | b8 20 51 25 2b 50 25 2d |. R%=Q% |. Q%+P%-|
|000013d0| 31 3a 5a 25 3d 5a 25 2b | 31 3a 4a 25 3d 5a 25 20 |1:Z%=Z%+|1:J%=Z% |
|000013e0| 83 32 34 30 3a 4b 25 3d | 5a 25 20 81 32 34 30 0d |.240:K%=|Z% .240.|
|000013f0| 28 fa 11 e8 23 66 2c 58 | 31 28 4a 25 2c 4b 25 29 |(...#f,X|1(J%,K%)|
|00001400| 0d 29 04 05 ed 0d 29 0e | 09 d9 23 66 3a e1 0d 29 |.)....).|..#f:..)|
|00001410| 13 05 3a 0d 29 18 37 dd | f2 73 61 76 65 3a e7 20 |..:.).7.|.save:. |
|00001420| 4e 39 3d 30 20 f1 27 22 | 83 9d 88 81 3e 20 20 4e |N9=0 .'"|....>  N|
|00001430| 4f 20 20 44 41 54 41 20 | 20 3c 89 22 27 3a 64 65 |O  DATA | <."':de|
|00001440| 6c 3d a6 28 32 35 30 29 | 3a e1 0d 29 22 34 e8 27 |l=.(250)|:..)"4.'|
|00001450| 22 45 6e 74 65 72 20 66 | 69 6c 65 20 72 65 66 65 |"Enter f|ile refe|
|00001460| 72 65 6e 63 65 20 63 6f | 64 65 28 6c 69 6d 69 74 |rence co|de(limit|
|00001470| 20 31 30 63 68 72 73 29 | 22 2c 72 65 66 24 0d 29 | 10chrs)|",ref$.)|
|00001480| 27 4a f5 3a f1 22 83 9d | 81 50 6c 61 69 6e 20 6e |'J.:."..|.Plain n|
|00001490| 75 6d 65 72 69 63 20 66 | 69 6c 65 20 59 3f 20 65 |umeric f|ile Y? e|
|000014a0| 6c 73 65 20 72 65 74 75 | 72 6e 22 3b 3a 53 57 24 |lse retu|rn";:SW$|
|000014b0| 3d be 3a fd 20 a9 28 53 | 57 24 29 3d 31 20 84 20 |=.:. .(S|W$)=1 . |
|000014c0| a9 28 53 57 24 29 3d 30 | 0d 29 2c 50 f1 27 22 82 |.(SW$)=0|.),P.'".|
|000014d0| 88 45 4e 53 55 52 45 20 | 44 41 54 41 20 44 49 53 |.ENSURE |DATA DIS|
|000014e0| 43 20 49 53 20 50 52 45 | 53 45 4e 54 22 27 22 20 |C IS PRE|SENT"'" |
|000014f0| 86 53 65 6c 65 63 74 20 | 46 55 4c 4c 20 64 69 72 |.Select |FULL dir|
|00001500| 65 63 74 6f 72 79 20 70 | 61 74 68 6e 61 6d 65 20 |ectory p|athname |
|00001510| 22 3a e8 20 64 69 72 24 | 0d 29 36 28 e7 20 97 28 |":. dir$|.)6(. .(|
|00001520| 64 69 72 24 29 3e 33 31 | 20 ff 20 22 44 49 52 20 |dir$)>31| . "DIR |
|00001530| 22 2b 64 69 72 24 20 20 | 8b 20 e5 20 8d 54 6c 69 |"+dir$  |. . .Tli|
|00001540| 0d 29 4a 0d 66 3d ae 28 | 72 65 66 24 29 0d 29 54 |.)J.f=.(|ref$).)T|
|00001550| 19 e7 20 53 57 24 20 3c | 3e 22 59 22 20 f1 23 66 |.. SW$ <|>"Y" .#f|
|00001560| 2c 41 24 2c 4e 39 0d 29 | 5e 57 e3 20 4b 25 3d 30 |,A$,N9.)|^W. K%=0|
|00001570| 20 b8 20 61 72 72 61 79 | 73 69 7a 65 25 3a 20 e3 | . array|size%: .|
|00001580| 20 49 3d 31 20 b8 20 32 | 34 30 3a e7 20 4b 25 2a | I=1 . 2|40:. K%*|
|00001590| 32 34 30 2b 49 3d 4e 39 | 2b 31 20 4b 25 3d 61 72 |240+I=N9|+1 K%=ar|
|000015a0| 72 61 79 73 69 7a 65 25 | 3a 49 3d 32 34 30 20 8b |raysize%|:I=240 .|
|000015b0| 20 f1 23 66 2c 58 31 28 | 49 2c 4b 25 29 0d 29 68 | .#f,X1(|I,K%).)h|
|000015c0| 0c ed 3a ed 3a d9 20 23 | 66 0d 29 72 05 e1 0d 29 |..:.:. #|f.)r...)|
|000015d0| 77 05 3a 0d 29 cc 0a dd | f2 70 6f 73 6e 0d 29 d6 |w.:.)...|.posn.).|
|000015e0| 4a 4a 39 3d 28 49 25 28 | 6c 6f 25 29 83 32 34 30 |JJ9=(I%(|lo%).240|
|000015f0| 2d 4b 39 2a 36 30 29 81 | 32 30 3a 49 39 3d 28 49 |-K9*60).|20:I9=(I|
|00001600| 25 28 6c 6f 25 29 2d 4b | 39 2a 36 30 29 83 32 30 |%(lo%)-K|9*60).20|
|00001610| 3a e7 20 49 39 3d 30 20 | 8c 20 4a 39 3d 4a 39 2d |:. I9=0 |. J9=J9-|
|00001620| 31 3a 49 39 3d 32 30 0d | 29 e0 18 e7 20 49 25 28 |1:I9=20.|)... I%(|
|00001630| 6c 6f 25 29 83 32 34 30 | 3d 30 20 4a 39 3d 32 0d |lo%).240|=0 J9=2.|
|00001640| 29 e1 05 e1 0d 29 e5 05 | 3a 0d 2a c6 9d dd f2 66 |)....)..|:.*....f|
|00001650| 69 6c 28 43 29 3a f1 27 | 22 83 9d 81 4c 41 53 54 |il(C):.'|"...LAST|
|00001660| 20 46 49 4c 45 20 44 45 | 53 43 52 49 50 54 49 4f | FILE DE|SCRIPTIO|
|00001670| 4e 20 52 45 41 44 20 49 | 53 3a 20 22 27 22 83 9d |N READ I|S: "'"..|
|00001680| 81 22 3b 41 24 3b 27 22 | 87 9d 84 4c 41 53 54 20 |.";A$;'"|...LAST |
|00001690| 44 49 53 43 20 46 49 4c | 45 3a 20 22 3b 72 65 66 |DISC FIL|E: ";ref|
|000016a0| 24 3b 22 20 20 4c 45 4e | 47 54 48 20 49 53 3a 20 |$;"  LEN|GTH IS: |
|000016b0| 22 3b 4e 4e 25 3b 27 22 | 20 9d 84 46 52 4f 4d 20 |";NN%;'"| ..FROM |
|000016c0| 4e 4f 2e 3a 22 3b 51 51 | 25 3b 22 20 20 54 4f 54 |NO.:";QQ|%;"  TOT|
|000016d0| 41 4c 20 4e 4f 2e 20 49 | 4e 50 55 54 3a 20 22 3b |AL NO. I|NPUT: ";|
|000016e0| 4e 39 3b 27 3a e1 0d 2e | e0 17 dd a4 75 73 69 6e |N9;':...|....usin|
|000016f0| 67 28 66 6f 72 6d 61 74 | 24 2c 6e 6f 29 0d 2e ea |g(format|$,no)...|
|00001700| 18 ea 20 6e 75 6d 62 24 | 2c 73 70 24 2c 44 25 2c |.. numb$|,sp$,D%,|
|00001710| 4c 25 2c 40 25 0d 2e f4 | 0f 6e 75 6d 62 24 3d c3 |L%,@%...|.numb$=.|
|00001720| 28 6e 6f 29 0d 2e fe 38 | e7 20 6e 6f 3e 30 20 80 |(no)...8|. no>0 .|
|00001730| 20 97 28 66 6f 72 6d 61 | 74 24 29 3d 34 35 20 8c | .(forma|t$)=45 .|
|00001740| 20 73 70 24 3d bd 33 32 | 3a 66 6f 72 6d 61 74 24 | sp$=.32|:format$|
|00001750| 3d c1 66 6f 72 6d 61 74 | 24 2c 32 29 0d 2f 08 11 |=.format|$,2)./..|
|00001760| 4c 25 3d a9 28 66 6f 72 | 6d 61 74 24 29 0d 2f 12 |L%=.(for|mat$)./.|
|00001770| 18 44 25 3d a7 66 6f 72 | 6d 61 74 24 2b bd 33 32 |.D%=.for|mat$+.32|
|00001780| 2c 22 2e 22 29 0d 2f 1c | 2d e7 20 44 25 20 8c 20 |,".")./.|-. D% . |
|00001790| 40 25 3d 28 36 36 30 34 | 38 2b 4c 25 2d 44 25 29 |@%=(6604|8+L%-D%)|
|000017a0| 2a 32 35 36 20 8b 20 6e | 6f 3d a8 28 6e 6f 2b 2e |*256 . n|o=.(no+.|
|000017b0| 35 29 0d 2f 26 20 e7 20 | a7 6e 75 6d 62 24 2c 22 |5)./& . |.numb$,"|
|000017c0| 45 22 29 20 8c 20 3d 73 | 70 24 2b 66 6f 72 6d 61 |E") . =s|p$+forma|
|000017d0| 74 24 0d 2f 30 29 e7 20 | a7 6e 75 6d 62 24 2b 22 |t$./0). |.numb$+"|
|000017e0| 2e 22 2c 22 2e 22 29 3e | 4c 25 2b 31 20 8c 20 3d |.",".")>|L%+1 . =|
|000017f0| 73 70 24 2b 66 6f 72 6d | 61 74 24 0d 2f 3a 11 66 |sp$+form|at$./:.f|
|00001800| 6f 72 6d 61 74 24 3d c3 | 28 6e 6f 29 0d 2f 44 27 |ormat$=.|(no)./D'|
|00001810| e7 20 a9 28 66 6f 72 6d | 61 74 24 29 3e 4c 25 20 |. .(form|at$)>L% |
|00001820| 8c 20 3d 73 70 24 2b c0 | 66 6f 72 6d 61 74 24 2c |. =sp$+.|format$,|
|00001830| 4c 25 29 0d 2f 4e 1e 3d | 73 70 24 2b c2 c4 4c 25 |L%)./N.=|sp$+..L%|
|00001840| 2c 22 20 22 29 2b 66 6f | 72 6d 61 74 24 2c 4c 25 |," ")+fo|rmat$,L%|
|00001850| 29 0d 2f a8 13 dd f2 73 | 65 72 69 61 6c 3a 2a 46 |)./....s|erial:*F|
|00001860| 58 35 2c 32 0d 2f b2 70 | f1 27 22 83 45 6e 74 65 |X5,2./.p|.'".Ente|
|00001870| 72 20 42 61 75 64 20 52 | 61 74 65 20 6f 66 20 70 |r Baud R|ate of p|
|00001880| 72 69 6e 74 65 72 20 61 | 73 20 66 6f 6c 6c 6f 77 |rinter a|s follow|
|00001890| 73 22 27 27 22 83 37 35 | 3d 31 2c 20 31 35 30 3d |s"''".75|=1, 150=|
|000018a0| 32 2c 20 33 30 30 3d 33 | 2c 20 31 32 30 30 3d 34 |2, 300=3|, 1200=4|
|000018b0| 2c 20 32 34 30 30 3d 35 | 22 27 22 83 34 38 30 30 |, 2400=5|"'".4800|
|000018c0| 3d 36 2c 20 39 36 30 30 | 3d 37 2c 20 31 39 32 30 |=6, 9600|=7, 1920|
|000018d0| 30 3d 38 22 0d 2f bc 1b | 62 64 25 3d a5 2d 34 38 |0=8"./..|bd%=.-48|
|000018e0| 3a ff 20 22 2a 46 58 38 | 2c 22 2b c3 62 64 25 0d |:. "*FX8|,"+.bd%.|
|000018f0| 2f c6 0a 2a 46 58 36 2c | 30 0d 2f d0 19 f1 27 22 |/..*FX6,|0./...'"|
|00001900| 81 88 4f 4b 22 3a 64 65 | 6c 3d a6 28 32 35 30 29 |..OK":de|l=.(250)|
|00001910| 3a e1 0d 2f da 93 dd f2 | 77 68 65 72 65 3a f5 3a |:../....|where:.:|
|00001920| f1 27 27 22 83 9d 84 88 | 3e 89 20 45 6e 74 65 72 |.''"....|>. Enter|
|00001930| 20 64 72 69 76 65 20 4e | 6f 2e 20 6f 66 20 64 61 | drive N|o. of da|
|00001940| 74 61 20 64 69 73 63 20 | 88 3c 89 22 27 22 83 9d |ta disc |.<."'"..|
|00001950| 84 20 20 6f 72 20 52 45 | 54 55 52 4e 20 66 6f 72 |.  or RE|TURN for|
|00001960| 20 64 72 69 76 65 20 30 | 22 3a 69 6e 63 25 3d a5 | drive 0|":inc%=.|
|00001970| 2d 34 38 3a fd 20 28 69 | 6e 63 25 3e 2d 31 20 80 |-48:. (i|nc%>-1 .|
|00001980| 20 69 6e 63 25 3c 37 29 | 20 84 20 69 6e 63 25 3d | inc%<7)| . inc%=|
|00001990| 2d 33 35 3a e7 20 69 6e | 63 25 3d 2d 33 35 20 69 |-35:. in|c%=-35 i|
|000019a0| 6e 63 25 3d 30 0d 2f e4 | 58 f1 27 22 83 9d 84 45 |nc%=0./.|X.'"...E|
|000019b0| 6e 74 65 72 20 64 61 74 | 61 20 64 69 72 65 63 74 |nter dat|a direct|
|000019c0| 6f 72 79 20 70 61 74 68 | 6e 61 6d 65 89 22 27 22 |ory path|name."'"|
|000019d0| 83 9d 84 6f 72 20 52 45 | 54 55 52 4e 20 66 6f 72 |...or RE|TURN for|
|000019e0| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 6f | current| directo|
|000019f0| 72 79 89 22 27 3a e8 20 | 64 69 72 64 24 0d 2f ee |ry."':. |dird$./.|
|00001a00| 20 f4 20 49 46 20 64 69 | 72 64 24 3d 22 22 20 54 | . IF di|rd$="" T|
|00001a10| 48 45 4e 20 64 69 72 64 | 24 3d 22 5e 22 0d 2f f8 |HEN dird|$="^"./.|
|00001a20| 05 e1 0d 30 0c 0a dd f2 | 69 6e 69 74 0d 30 16 27 |...0....|init.0.'|
|00001a30| eb 20 37 3a 4e 4e 25 3d | 30 3a 51 51 25 3d 30 3a |. 7:NN%=|0:QQ%=0:|
|00001a40| 4b 25 3d 30 3a ef 32 33 | 2c 31 2c 30 3b 30 3b 30 |K%=0:.23|,1,0;0;0|
|00001a50| 3b 30 3b 0d 30 20 2b 61 | 72 72 61 79 73 69 7a 65 |;0;.0 +a|rraysize|
|00001a60| 25 3d 31 30 3a 64 75 6d | 6d 79 25 3d 30 3a 73 68 |%=10:dum|my%=0:sh|
|00001a70| 61 70 65 24 3d 22 2a 2a | 2a 2e 2a 2a 2a 22 0d 30 |ape$="**|*.***".0|
|00001a80| 2a 26 46 34 3d 31 3a 72 | 65 66 24 3d 22 4e 6f 6e |*&F4=1:r|ef$="Non|
|00001a90| 65 22 3a 4e 39 3d 30 3a | 41 24 3d 22 4e 6f 20 64 |e":N9=0:|A$="No d|
|00001aa0| 61 74 61 22 0d 30 34 31 | de 20 58 31 28 32 34 30 |ata".041|. X1(240|
|00001ab0| 2c 61 72 72 61 79 73 69 | 7a 65 25 29 2c 58 28 32 |,arraysi|ze%),X(2|
|00001ac0| 34 30 2c 61 72 72 61 79 | 73 69 7a 65 25 29 2c 49 |40,array|size%),I|
|00001ad0| 25 28 36 31 29 0d 30 3e | 59 f1 22 83 9d 84 46 55 |%(61).0>|Y."...FU|
|00001ae0| 4c 4c 20 54 57 4f 20 57 | 41 59 20 41 4e 41 4c 59 |LL TWO W|AY ANALY|
|00001af0| 53 49 53 20 4f 46 20 56 | 41 52 49 41 4e 43 45 20 |SIS OF V|ARIANCE |
|00001b00| 2d 22 27 22 83 9d 84 49 | 4e 43 4f 4d 50 4c 45 54 |-"'"...I|NCOMPLET|
|00001b10| 45 20 43 45 4c 4c 53 20 | 41 4c 4c 4f 57 45 44 20 |E CELLS |ALLOWED |
|00001b20| 52 2e 64 65 20 56 2e 31 | 39 38 39 22 27 27 0d 30 |R.de V.1|989"''.0|
|00001b30| 48 50 f1 22 92 9d 84 44 | 61 74 61 20 66 6f 72 6d |HP."...D|ata form|
|00001b40| 61 74 20 61 6c 6c 6f 77 | 73 20 37 20 66 69 67 75 |at allow|s 7 figu|
|00001b50| 72 65 20 64 69 73 70 6c | 61 79 20 22 27 22 92 9d |re displ|ay "'"..|
|00001b60| 84 69 6e 63 6c 75 64 69 | 6e 67 20 74 68 65 20 64 |.includi|ng the d|
|00001b70| 65 63 69 6d 61 6c 20 70 | 6f 69 6e 74 21 22 0d 30 |ecimal p|oint!".0|
|00001b80| 52 9b f5 3a f1 22 83 9d | 84 45 6e 74 65 72 20 70 |R..:."..|.Enter p|
|00001b90| 72 65 66 65 72 72 65 64 | 20 64 61 74 61 20 66 6f |referred| data fo|
|00001ba0| 72 6d 61 74 20 69 6e 20 | 74 68 65 22 27 22 83 9d |rmat in |the"'"..|
|00001bb0| 84 66 6f 72 6d 20 2a 2a | 2a 2e 2a 2a 2a 20 6f 72 |.form **|*.*** or|
|00001bc0| 20 52 45 54 55 52 4e 20 | 66 6f 72 20 64 65 66 61 | RETURN |for defa|
|00001bd0| 75 6c 74 22 3b 3a e8 20 | 73 68 61 70 65 24 3a fd |ult";:. |shape$:.|
|00001be0| 20 a9 28 73 68 61 70 65 | 24 29 3d 37 20 84 20 a9 | .(shape|$)=7 . .|
|00001bf0| 28 73 68 61 70 65 24 29 | 3d 30 3a e7 20 a9 28 73 |(shape$)|=0:. .(s|
|00001c00| 68 61 70 65 24 29 3d 30 | 20 73 68 61 70 65 24 3d |hape$)=0| shape$=|
|00001c10| 22 2a 2a 2a 2e 2a 2a 2a | 22 0d 30 70 9a f1 27 22 |"***.***|".0p..'"|
|00001c20| 83 9d 84 45 6e 74 65 72 | 20 31 20 74 6f 20 70 72 |...Enter| 1 to pr|
|00001c30| 6f 63 65 73 73 20 61 6c | 6c 20 64 61 74 61 20 69 |ocess al|l data i|
|00001c40| 6e 63 2e 22 27 22 83 9d | 84 7a 65 72 6f 20 61 6e |nc."'"..|.zero an|
|00001c50| 64 20 6e 65 67 61 74 69 | 76 65 20 76 61 6c 75 65 |d negati|ve value|
|00001c60| 73 20 6f 72 20 52 45 54 | 55 52 4e 22 27 22 83 9d |s or RET|URN"'"..|
|00001c70| 84 74 6f 20 74 72 65 61 | 74 20 76 61 6c 75 65 73 |.to trea|t values|
|00001c80| 20 3c 20 30 2e 30 30 31 | 20 61 73 20 6d 69 73 73 | < 0.001| as miss|
|00001c90| 69 6e 67 20 22 3a 64 75 | 6d 6d 79 25 3d a5 3a e7 |ing ":du|mmy%=.:.|
|00001ca0| 20 64 75 6d 6d 79 25 3d | 31 33 20 64 75 6d 6d 79 | dummy%=|13 dummy|
|00001cb0| 25 3d 30 0d 30 7a 32 f1 | 27 22 83 9d 84 3e 89 46 |%=0.0z2.|'"...>.F|
|00001cc0| 75 6c 6c 20 65 64 69 74 | 69 6e 67 20 69 6e 70 75 |ull edit|ing inpu|
|00001cd0| 74 3d 46 20 65 6c 73 65 | 20 52 45 54 55 52 4e 22 |t=F else| RETURN"|
|00001ce0| 3a 44 24 3d be 0d 30 d4 | 05 e1 0d 31 38 09 dd f2 |:D$=..0.|...18...|
|00001cf0| 64 69 6d 0d 31 42 31 de | 20 41 33 28 61 72 72 61 |dim.1B1.| A3(arra|
|00001d00| 79 73 69 7a 65 25 2a 32 | 35 29 2c 51 28 32 35 30 |ysize%*2|5),Q(250|
|00001d10| 29 3a 72 65 66 24 3d 22 | 4e 6f 74 20 6f 6e 20 66 |):ref$="|Not on f|
|00001d20| 69 6c 65 22 0d 31 4c 07 | 4d 3d 30 0d 31 92 05 e1 |ile".1L.|M=0.1...|
|00001d30| 0d 31 9c 9b dd f2 6f 73 | 3a f1 27 22 83 9d 84 3e |.1....os|:.'"...>|
|00001d40| 20 20 4f 50 45 52 41 54 | 49 4e 47 20 53 59 53 54 |  OPERAT|ING SYST|
|00001d50| 45 4d 20 43 41 4c 4c 20 | 28 65 67 20 2a 43 41 54 |EM CALL |(eg *CAT|
|00001d60| 20 3c 22 27 3a e8 22 45 | 6e 74 65 72 20 63 61 6c | <"':."E|nter cal|
|00001d70| 6c 20 28 6b 65 79 20 73 | 68 69 66 74 20 74 6f 20 |l (key s|hift to |
|00001d80| 73 63 72 6f 6c 6c 29 22 | 2c 53 57 24 3a ef 31 34 |scroll)"|,SW$:.14|
|00001d90| 3a ff 20 53 57 24 3a ef | 31 35 3a f1 22 83 9d 84 |:. SW$:.|15:."...|
|00001da0| 3e 20 20 50 72 65 73 73 | 20 61 20 6b 65 79 20 74 |>  Press| a key t|
|00001db0| 6f 20 65 6e 64 20 64 65 | 6c 61 79 20 20 3c 22 3a |o end de|lay  <":|
|00001dc0| 64 65 6c 3d a6 28 32 30 | 30 30 29 0d 32 c8 05 e1 |del=.(20|00).2...|
|00001dd0| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+